home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / proc.convert2 < prev    next >
Text File  |  2007-02-28  |  511b  |  20 lines
  1. 9000 //
  2. 9010 ╨╥╧├ CONVERT(NUMBER,╥┼╞ BASE#,╥┼╞ RES$) ├╠╧╙┼─
  3. 9020   ─╔═ STACK(80)
  4. 9030   SP:=1 // ╘HIS IS THE STACK POINTER
  5. 9040   ╥┼╨┼┴╘ 
  6. 9050     TEMP:=NUMBER ═╧─ BASE#
  7. 9060     NUMBER:=NUMBER ─╔╓ BASE#
  8. 9070     STACK(SP):=TEMP
  9. 9080     SP:+1
  10. 9090   ╒╬╘╔╠ NUMBER=0
  11. 9100   ╞╧╥ COUNT:=SP-1 ╘╧ 1 ╙╘┼╨ -1 ─╧
  12. 9110     DIGIT:=STACK(COUNT)
  13. 9120     ╔╞ DIGIT<10 ╘╚┼╬
  14. 9130       RES$:+├╚╥$(DIGIT+╧╥─("0"))
  15. 9140     ┼╠╙┼ 
  16. 9150       RES$:+├╚╥$(DIGIT-10+╧╥─("┴"))
  17. 9160     ┼╬─╔╞ 
  18. 9170   ┼╬─╞╧╥ COUNT
  19. 9180 ┼╬─╨╥╧├ CONVERT
  20.